From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Mon, 27 Aug 2007 13:37:50 +0000 (+0000)
Subject: (m2-definition, m2-module): Don't use previous-line.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~16875
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=f84d70eb75280b405cf74f22abf2ed0302c744cf;p=emacs.git

(m2-definition, m2-module): Don't use previous-line.
---

diff --git a/lisp/progmodes/modula2.el b/lisp/progmodes/modula2.el
index fde526ab303..f2530a7f502 100644
--- a/lisp/progmodes/modula2.el
+++ b/lisp/progmodes/modula2.el
@@ -295,7 +295,7 @@ followed by the first character of the construct.
   (insert "DEFINITION MODULE ")
   (let ((name (read-string "Name: ")))
     (insert name ";\n\n\n\nEND " name ".\n"))
-  (previous-line 3))
+  (forward-line -3))
 
 (defun m2-else ()
   "Insert ELSE keyword and indent for next line."
@@ -364,7 +364,7 @@ followed by the first character of the construct.
   (insert "IMPLEMENTATION MODULE ")
   (let ((name (read-string "Name: ")))
     (insert name ";\n\n\n\nEND " name ".\n")
-    (previous-line 3)
+    (forward-line -3)
     (m2-header)
     (m2-type)
     (newline)